1 ' *** OISAC 2 *** MENU-PRG ***
10 RESTORE1000:D=5:P=0:R=PEEK1716*256:DIMP$(D),Z$(D),L$(D):FORI=0TOD:READP$(I),Z$(I),L$(I):NEXT:I=0:DEFSEG=0:POKE1023,PEEK1771
20 CLS:PRINT"*** MENU-PRG *** OISAC 2 ***3;:T=(28-LEN(P$(I)))�2:LOCATET,1:PRINT">"P$(I)">";
25 S=ASC(INPUT$(1,@))
30 IFS=30ANDI<>0THENI=I-1:GOTO20ELSEIFS=31ANDI<>D THENI=I+1:GOTO20
35 IFS=29THENI=0:GOTO20ELSEIFS=28THENI=D:GOTO20
40 IFS<>13THENBEEP:GOTO25ELSEZ=VAL(Z$(I)):CALC$=L$(I):IFZ<>P THENPOKE1771,(R-15*Z-15)MOD256
50 CLEAR:GOSUBVAL(CALC$):DEFSEG=0:POKE1771,PEEK1023:GOTO10
999 ' ******* EXEMPLES DE DATAS *********
1000 DATA Menu-prg,0,10      	
1010 DATA Antireset,1,10000
1020 DATA Editeur-Mem,1,10
1030 DATA Scrolling1,1,20000
1040 DATA Mode,0,20000
1050 DATA Lib-Ram,2,10